SEVEN[0,BGB] - www.SailDart.org

perm filename SEVEN[0,BGB] blob sn#109798 filedate 1974-07-11 generic text, type C, neo UTF8

COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	TITLE SEVEN
C00003 ENDMK
C⊗;
TITLE SEVEN

REV1:	0
	TRCE 101↔TRCE 101↔TRCE 101
	TRCE 42↔TRCE 42↔TRCE 42
	TRCE 24↔TRCE 24↔TRCE 24
	JRST @REV1

REV2:	0
	IMUL [10004002001]
	AND [210210210010]
	IDIVI 377
	MOVE 1
	ANDI 177
	JRST @REV2

SA:	MOVEI 10,177
	MOVE 0,10↔JSR REV1↔MOVEM 0,7
	MOVE 0,10↔JSR REV2
	CAME 0,7
FUCK:	JFCL
	SOJGE 10,SA+1
EOL:	HALT
END SA